Những câu hỏi liên quan
Công Minh
Xem chi tiết
Công Minh
16 tháng 10 2021 lúc 19:29

GIÚP VS MN<3

 

Bình luận (0)
Công Minh
16 tháng 10 2021 lúc 21:23

Giup mik vs nha <3

 

Bình luận (0)
Phùng Việt Anh
Xem chi tiết
huyền trang phan thị
Xem chi tiết
Ngô Bá Hùng
25 tháng 4 2023 lúc 23:20

program Tinh_Day_So;
var
  n, i, x, dem: integer;
  max, a: integer;
begin
  write('Nhập số ptử của dãy: ');
  readln(n);
  writeln('Nhập các ptu của dãy:');
  for i := 1 to n do
  begin
    readln(x);
    a := a + x;  
    if x mod 2 = 0 then
      dem := dem + 1; 
    if x > max then
      max := x; 
  end;
  writeln('Tổng dãy là: ', a);
  writeln('Số ptu chẵn là: ', dem);
  writeln('Gtln của dãy là: ', max);
end.

Bình luận (0)
My Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2021 lúc 23:26

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,t;

int main()

{

cin>>a>>b>>c;

t=0;

if (a%2!=0) t=t+a;

if (b%2!=0) t=t+b;

if (c%2!=0) t=t+c;

cout<<t;

return 0;

}

Bình luận (0)
Lê Đức Tài
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 14:06

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

freopen("songuyen.txt","r",stdin);

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
Nguyễn Công Vinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:29

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,t;

int main()

{

cin>>a>>b>>c;

t=0;

if (a%2!=0) t=t+a;

if (b%2!=0) t=t+b;

if (c%2!=0) t=t+c;

cout<<t;

return 0;

}

Bình luận (0)
Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:41

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if n mod i=0 then t:=t+i;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Bình luận (0)
Phúc Duyên
Xem chi tiết
Ngô Hoàng Gia Bảo
15 tháng 1 2018 lúc 19:23

uses crt;

var a,b,c,s,x:integer;

begin

clrscr;

write('hs_lop');

writeln('nhap 3 so=');readln(a,b,c);

begin

s:=a+b+c;

writeln('tong la:',s);

x:=a*b*c;

writeln('tich la:',x);

end;

if a mod 2 =0 then writeln(a,'la so chan')

else write('a,'la so le');

readln;

end.

mình ko chắc pn kt thử xem

Bình luận (0)
Tali
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 4 2021 lúc 23:03

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if (10<a[i]) and (a[i]<20) then inc(dem);

writeln(dem);

readln;

end.

Bình luận (2)